home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earkit
/
news
/
thor
/
rexx
/
golded
/
style.ged
< prev
next >
Wrap
Text File
|
1998-05-24
|
721b
|
40 lines
/* Style.ged by Troels Walsted Hansen
** $VER: Style.ged 1.0 (9.6.95)
**
** Purpose: Apply style to word.
*/
options results
parse arg stylechar
/* needs GoldED functions */
p = address() || ' ' || show('P',,)
portname = pos('GOLDED.',p)
if portname > 0 then portname = word(substr(p,portname),1)
else
do
say 'No GoldED port found!'
exit 10
end
address(portname)
REQLIST ENTRY '"Bold"' '"Italic"' '"Reverse"' '"Underline"' VAR result TITLE '"Select style"'
select
when(result = 0) then stylechar = '*'
when(result = 1) then stylechar = '/'
when(result = 2) then stylechar = '#'
when(result = 3) then stylechar = '_'
otherwise exit
end
PREV
FIX VAR stylechar
TEXT T stylechar
ENDWORD
RIGHT
TEXT T stylechar